home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / comm2 / slipcll4.lh0 / SLIPCall / Install_SLIPCall < prev    next >
Text File  |  1995-12-28  |  4KB  |  142 lines
  1. ;****************************************************************************;
  2. ;                                                                            ;
  3. ; $VER: SLIPCall_Installation 4.0b (5.11.95)                                 ;
  4. ;                                                                            ;
  5. ; © 1995 Thomas Egrelius                                                     ;
  6. ;                                                                            ;
  7. ; egge@canit.se  /  thomas@fotoslide.bmc.uu.se                               ;
  8. ;                                                                            ;
  9. ;****************************************************************************;
  10.  
  11. (procedure :askdestination
  12.     (set #destination
  13.         (askdir
  14.             (prompt "Where would you like to put SLIPCall 4.0?\n"
  15.                     "A drawer will be created.")
  16.             (help   @askdir-help)
  17.             (default "SYS:")
  18.         )
  19.     )
  20. )
  21.  
  22. (procedure :checksana
  23.     (if (<> (exists "ENVARC:Sana2" (noreq)) 2)
  24.         (makedir "ENVARC:Sana2")
  25.     )
  26. )
  27.  
  28. (procedure :askdefault
  29.     (set #default
  30.         (askchoice
  31.             (prompt "Which provider do you use?")
  32.             (help   "A predefined configuration will be saved "
  33.                     "for your provider.\n\n"
  34.                     "This file (PROGDIR:config/SLIPCall.config) will be used by SLIPCall "
  35.                     "when no argument for configuration is submitted.")
  36.             (choices "CanIt AB (SLIP/CSLIP)"
  37.                      "Canit AB (PPP)"
  38.                      "Algonet AB"
  39.                      "ABC Klubben"
  40.                      "Oden Telecom"
  41.                      "University of Uppsala (SLIP/CSLIP)"
  42.                      "University of Uppsala (PPP)"
  43.                      "Kuai Connection (static)"
  44.                      "Kuai Conection (dynamic)"
  45.                      "Other")
  46.             (default 9)
  47.         )
  48.     )
  49. )
  50.  
  51.  
  52.  
  53. ; -------------------------------------
  54. ; main()
  55. ; -------------------------------------
  56.  
  57. (complete 0)
  58.  
  59. (message "Welcome to the installation of SLIPCall 4.0!\n\n")
  60.  
  61. (:askdestination)
  62.  
  63. (makedir (tackon #destination "SLIPCall") (infos))
  64.  
  65. (copyfiles
  66.     (source "")
  67.     (dest (tackon #destination "SLIPCall"))
  68.     (pattern "~(Install#?|#?.library)")
  69. )
  70.  
  71. (copylib
  72.     (source "bgui.library")
  73.     (dest "LIBS:")
  74. )
  75.  
  76. (complete 40)
  77.  
  78. (:askdefault)
  79.  
  80. (if (= #default 0) (set #defaultstr "CanIt.config"))
  81. (if (= #default 1) (set #defaultstr "CanItPPP.config"))
  82. (if (= #default 2) (set #defaultstr "Algonet.config"))
  83. (if (= #default 3) (set #defaultstr "ABC.config"))
  84. (if (= #default 4) (set #defaultstr "Oden.config"))
  85. (if (= #default 5) (set #defaultstr "UU.config"))
  86. (if (= #default 6) (set #defaultstr "UUPPP.config"))
  87. (if (= #default 7) (set #defaultstr "KuaiStatic.config"))
  88. (if (= #default 8) (set #defaultstr "KuaiDynamic.config"))
  89. (if (= #default 9) (set #defaultstr "SLIPCall.config"))
  90.  
  91. (copyfiles
  92.     (source "config/")
  93.     (dest (tackon (tackon #destination "SLIPCall") "config"))
  94.     (pattern "~(SLIPCall.config)")
  95.     (nogauge)
  96. )
  97.  
  98. (copyfiles
  99.     (source (cat "config/" #defaultstr))
  100.     (dest   (tackon (tackon #destination "SLIPCall") "config"))
  101.     (newname "SLIPCall.config")
  102.     (nogauge)
  103. )
  104.  
  105. (complete 80)
  106.  
  107. (if (=
  108.     (askbool
  109.         (prompt "Do you use Phonebill?\n\nIf you do, you should upgrade "
  110.                 "your scanner.config. The format of SLIPCall's logfile "
  111.                 "has changed.")
  112.         (help   "If you answer 'Yes', installer will check if you have a"
  113.                 " scanner for SLIPCall installed. If not, one will be installed.")
  114.     )
  115.     1)
  116.     (
  117.         (set #scanner
  118.             (askfile
  119.                 (prompt "Choose the 'Scanner.config' used by Phonebill.")
  120.                 (help   @askfile-help)
  121.                 (default "SYS:")
  122.             )
  123.         )
  124.         (if (run (cat "search " #scanner " SLIPCall"))
  125.             ((textfile
  126.                 (dest "T:InstallerTemp")
  127.                 (include #scanner)
  128.                 (include "Extras/phonebill.scanner"))
  129.             (copyfiles
  130.                 (source "T:InstallerTemp")
  131.                 (dest   (pathonly #scanner))
  132.                 (newname "Scanner.config"))
  133.             (delete "T:InstallerTemp")))))
  134.  
  135. (set @default-dest #destination)
  136. (complete 100)
  137. (message "Installation of SLIPCall 4.0 is finnished!\n\n"
  138.          "You can find it in " #destination)
  139.  
  140. (exit (quiet))
  141.  
  142.